      ***************************************************************
      *                                                             *
      *    THIS IS THE WORK AREA USED BY COPYBOOK C108Z998 TO       *
      *    MOVE UNDERSCORES TO CICS MAP INPUT FIELDS.               *
      *                                                             *
      ***************************************************************

       01  W9998-WORK-AREA.
           05  W9998-DATA              PIC  X(80)  VALUE SPACES.
           05  W9998-IX                PIC  S9(4) COMP VALUE ZEROES.
